1050 :
1060 PRINT CHR$(142)
1070 PRINT "BITTE DISKETTE EINLEGEN UND TASTE
1080 [153] "DRUECKEN !
1090 GET A$:WAIT 203,63
1110 OPEN 15,8,15:OPEN 3,8,3,"#"
1140 PRINT#15,"U1 3 0 18 0"
1160 PRINT#15,"B-P 3 144"
1190 FOR I=0 TO 15
1200 GET#3,A$
1210 N$=N$+A$
1220 NEXT I
1250 GET#3,B$,C$,I1$,I2$,I3$,I4$,I5$
1260 ID$=I1$+I2$+I3$+I4$+I5$
1280 PRINT"ALTER DISKNAME:  "N$
1290 POKE19,64:INPUT"NEUER DISKNAME: ";N$:POKE19,0:PRINT
1300 IF LEN(N$)=16 THEN 1370
1330 FOR I=LEN(N$)+1 TO 16
1340 N$=N$+CHR$(160)
1350 NEXT I
1370 PRINT"ALTE ID-KENNUNG: "ID$
1380 POKE19,64:INPUT"NEUE ID-KENNUNG: ";ID$:POKE19,0:PRINT
1390 IF LEN(ID$) >5 THEN 1380
1400 A$=N$+B$+C$+ID$
1430 PRINT#15,"B-P 3 144"
1460 PRINT#3,A$;
1490 PRINT#15,"U2 3 0 18 0"
1500 CLOSE 3
1530 PRINT#15,"I"
1540 CLOSE 15